SUBROUTINE free_memory
! Copyright (C) 2009-2010 W. Wang 
! License: This file is distributed under the terms of the GNU General Public License.
! Description: ! 
! Revision histoty: Created May 2010  
! Input/output Parameters: 

USE cellinfo
 
IMPLICIT NONE

!Local variables  
IF (AllOCATED(atoms_info)) DEALLOCATE(atoms_info)



RETURN
END SUBROUTINE
